inherited frmTd_Account_Edit: TfrmTd_Account_Edit
  Left = 548
  Top = 204
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #20986#32435#24080#25143
  ClientHeight = 399
  ClientWidth = 574
  ExplicitWidth = 580
  ExplicitHeight = 424
  PixelsPerInch = 96
  TextHeight = 12
  object lblName: TLabel [0]
    Left = 114
    Top = 21
    Width = 60
    Height = 12
    Caption = #24080#25143#21517#31216#65306
    Transparent = True
  end
  object lblSubject: TLabel [1]
    Left = 114
    Top = 101
    Width = 60
    Height = 12
    Caption = #20250#35745#31185#30446#65306
    Transparent = True
  end
  object lblMoney: TLabel [2]
    Left = 114
    Top = 130
    Width = 60
    Height = 12
    Caption = #24065'    '#31181#65306
    Transparent = True
  end
  object lblBankName: TLabel [3]
    Left = 114
    Top = 160
    Width = 60
    Height = 12
    Caption = #38134#34892#21517#31216#65306
    Transparent = True
  end
  object lblBankNo: TLabel [4]
    Left = 114
    Top = 218
    Width = 60
    Height = 12
    Caption = #38134#34892#24080#21495#65306
    Transparent = True
  end
  object lblfilid: TLabel [5]
    Left = 114
    Top = 189
    Width = 60
    Height = 12
    Caption = #20998#25903#26426#26500#65306
    Transparent = True
  end
  object lblTopamt: TLabel [6]
    Left = 114
    Top = 247
    Width = 60
    Height = 12
    Caption = #20648#22791#19978#38480#65306
    Transparent = True
  end
  object lblDownamt: TLabel [7]
    Left = 114
    Top = 277
    Width = 60
    Height = 12
    Caption = #20648#22791#19979#38480#65306
    Transparent = True
  end
  inherited pnlBottom: TPanel
    Top = 339
    Width = 574
    TabOrder = 9
    ExplicitTop = 339
    ExplicitWidth = 480
    inherited Bevel1: TBevel
      Width = 574
      ExplicitWidth = 480
    end
    inherited btnOK: TBitBtn
      Left = 387
      Top = 20
      ExplicitLeft = 293
      ExplicitTop = 20
    end
    inherited btnCancel: TBitBtn
      Left = 479
      Top = 20
      ExplicitLeft = 385
      ExplicitTop = 20
    end
    inherited btnContinue: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnPri: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnNext: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnBaseEditSave: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
  end
  object edtName: TcxDBTextEdit [9]
    Left = 179
    Top = 17
    DataBinding.DataField = 'Name'
    DataBinding.DataSource = MainDataSource
    TabOrder = 0
    Width = 185
  end
  object edtTopamt: TcxDBTextEdit [10]
    Left = 179
    Top = 243
    DataBinding.DataField = 'topamt'
    DataBinding.DataSource = MainDataSource
    TabOrder = 6
    OnExit = edtTopamtExit
    OnKeyPress = edtTopamtKeyPress
    Width = 185
  end
  object edtDownamt: TcxDBTextEdit [11]
    Left = 179
    Top = 273
    DataBinding.DataField = 'lowamt'
    DataBinding.DataSource = MainDataSource
    TabOrder = 7
    OnExit = edtTopamtExit
    OnKeyPress = edtTopamtKeyPress
    Width = 185
  end
  object cbbfilid: TcxDBLookupComboBox [12]
    Tag = 5
    Left = 179
    Top = 185
    DataBinding.DataField = 'filid'
    DataBinding.DataSource = MainDataSource
    Properties.ListColumns = <>
    Properties.ListOptions.SyncMode = True
    TabOrder = 4
    Width = 185
  end
  object cbbBankName: TcxDBLookupComboBox [13]
    Tag = 26
    Left = 179
    Top = 156
    DataBinding.DataField = 'bankid'
    DataBinding.DataSource = MainDataSource
    Properties.ListColumns = <>
    Properties.ListOptions.SyncMode = True
    TabOrder = 3
    Width = 185
  end
  object GrpCountType: TRadioGroup [14]
    Left = 116
    Top = 45
    Width = 249
    Height = 42
    BiDiMode = bdLeftToRight
    Caption = #24080#25143#31867#22411
    Columns = 3
    Ctl3D = True
    ItemIndex = 0
    Items.Strings = (
      #29616#37329
      #38134#34892
      #20854#23427)
    ParentBiDiMode = False
    ParentCtl3D = False
    TabOrder = 11
    OnClick = GrpCountTypeClick
  end
  object ChkPause: TcxDBCheckBox [15]
    Left = 112
    Top = 306
    Caption = #26159#21542#20572#29992#65306
    DataBinding.DataField = 'pause'
    DataBinding.DataSource = MainDataSource
    Properties.Alignment = taRightJustify
    Properties.NullStyle = nssUnchecked
    TabOrder = 8
    Transparent = True
  end
  object edtBankNo: TcxDBTextEdit [16]
    Left = 179
    Top = 214
    DataBinding.DataField = 'BankNO'
    DataBinding.DataSource = MainDataSource
    Enabled = False
    TabOrder = 5
    Width = 185
  end
  object edtSubject: TcxDBLookupComboBox [17]
    Tag = 63
    Left = 180
    Top = 97
    DataBinding.DataField = 'subjectid'
    DataBinding.DataSource = MainDataSource
    Properties.ListColumns = <>
    TabOrder = 12
    Width = 185
  end
  object edtMoney: TcxDBLookupComboBox [18]
    Tag = 24
    Left = 179
    Top = 126
    DataBinding.DataField = 'moneyid'
    DataBinding.DataSource = MainDataSource
    Properties.ListColumns = <>
    Properties.ListOptions.SyncMode = True
    TabOrder = 10
    Width = 185
  end
  inherited btnPrint: TcxButton
    Left = 679
  end
  inherited edtPrint: TcxLookupComboBox
    Left = 751
  end
  inherited MainDataSource: TDataSource
    DataSet = MainDataSet
    Top = 207
  end
  object MainDataSet: TUniQuery
    SQLInsert.Strings = (
      'Insert into TD_ACCOUNT(accid,'
      'code,'
      'moneyid,'
      'bankid,'
      'subjectid,'
      'name,'
      'pause,'
      'cash,'
      'start,'
      'balance,'
      'balinit,'
      'filid,'
      'lowamt,'
      'topamt'
      ')'
      'Values'
      '(:accid,'
      ':code,'
      ':moneyid,'
      ':bankid,'
      ':subjectid,'
      ':name,'
      ':pause,'
      ':cash,'
      ':start,'
      ':balance,'
      ':balinit,'
      ':filid,'
      ':lowamt,'
      ':topamt)')
    SQLDelete.Strings = (
      'Delete from TD_ACCOUNT where accid=:OLD_accid')
    SQLUpdate.Strings = (
      'Update TD_ACCOUNT set '
      'accid=:accid,'
      'code=:code,'
      'moneyid=:moneyid,'
      'bankid=:bankid,'
      'subjectid=:subjectid,'
      'name=:name,'
      'pause=:pause,'
      'cash=:cash,'
      'start=:start,'
      'balance=:balance,'
      'balinit=:balinit,'
      'filid=:filid,'
      'lowamt=:lowamt,'
      'topamt=:topamt'
      ' where accid=:OLD_accid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from v_Td_Account')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 34
    Top = 159
    object MainDataSetcode: TWideStringField
      FieldName = 'code'
      Size = 32
    end
    object MainDataSetname: TWideStringField
      FieldName = 'name'
      FixedChar = True
      Size = 48
    end
    object MainDataSetmoneyid: TIntegerField
      FieldName = 'moneyid'
    end
    object MainDataSetbankid: TIntegerField
      FieldName = 'bankid'
    end
    object MainDataSetaccid: TIntegerField
      FieldName = 'accid'
    end
    object MainDataSetBankNO: TWideStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'BankNO'
    end
    object MainDataSetBankName: TWideStringField
      DisplayLabel = #38134#34892
      FieldName = 'BankName'
    end
    object MainDataSetsubjectid: TIntegerField
      FieldName = 'subjectid'
    end
    object MainDataSettopamt: TFloatField
      FieldName = 'topamt'
    end
    object MainDataSetfilid: TIntegerField
      FieldName = 'filid'
    end
    object MainDataSetpause: TBooleanField
      FieldName = 'pause'
    end
    object MainDataSetcash: TWordField
      FieldName = 'cash'
    end
    object MainDataSetbalance: TFloatField
      FieldName = 'balance'
    end
    object MainDataSetstart: TBooleanField
      FieldName = 'start'
    end
    object MainDataSetbalinit: TFloatField
      FieldName = 'balinit'
    end
    object MainDataSetlowamt: TFloatField
      FieldName = 'lowamt'
    end
    object MainDataSetkname: TStringField
      FieldName = 'kname'
      LookupKeyFields = 'kid'
      LookupResultField = 'kname'
      KeyFields = 'cash'
    end
    object MainDataSetmoneyname: TStringField
      FieldName = 'moneyname'
    end
  end
end
